proc kickwarn {nick host handle chan knick reason} {
global botnick home kwarn
if {$kwarn == 1} {
if {[string tolower $knick] == [string tolower $botnick]} {
  putlog "$nick ($host) ($handle) kicked me from $chan with the reason : $reason"    
  putserv "PRIVMSG $home :\002$nick\002 ($host) kicked me from $chan with the reason: $reason"
  putserv "NOTICE $nick :Your kick on me has been logged and sent to $home - have a nice day!!!!"
  putserv "PRIVMSG $chan :\002$nick\002 ($host) kicked me from $chan with the reason : $reason"
  putserv "PRIVMSG $chan :A message that $nick kicked me has been logged and sent to $home and more than likely someone will be here to check on it - don't be surprised if your channel is purged." 
  return 0
  }
  }
  }


